home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 58
/
058side4.d64
/
master boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
4KB
|
135 lines
100 poke147,0:sys57812"master input.obj",8,1:sys62631
110 dimt$(10)
120 rem
130 poke 53281,0 : rem black background
140 mi=193*256 : rem mstr. inp. address
150 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #1"
155 print" [154][208]ress [210][197][212][213][210][206] after entering each"
157 print" 'field' (hours, minutes, seconds)."
160 print"[159] [208]lease enter the time -> 00:00:00":cx=29:cy=10:gosub430
170 for c = 0 to 2
180 cx=29+3*c : cy=10 : gosub 430
190 a$ = " " : rem define string
200 sysmi,128+16+1,2,asc("0"),1,3,a$
210 t$(c) = a$
220 next c
230 print:print"[156] [212]he time is [158]";t$(0);":";t$(1);":";t$(2)
240 rem
250 print" [208]ress [210][197][212][213][210][206] for next demo"
260 geta$:ifa$<>chr$(13)then260
270 goto540
280 rem
290 rem *****************************
300 rem ** format for master input **
310 rem *****************************
320 rem
330 rem in=intype,ln=length,df=default,
340 rem c1=color1,c2=color2,string name
350 rem
360 rem ('string name' can be any non-
370 rem dimensioned string variable,
380 rem for example: a$,m$,zz$,mn$,..)
390 rem
400 sys49152,in,ln,df,c1,c2,t$
410 rem
420 rem this positions the cursor
430 rem
440 rem cx=x-cursor (0-39) position
450 rem cy=y-cursor (0-23) position
460 rem
470 poke214,cy:print:poke211,cx:return
480 rem
490 rem
500 rem *******************************
510 rem ****** end of subroutine ******
520 rem *******************************
530 rem
540 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #2"
550 cx=16:cy=9:gosub420:gt=2
560 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
570 forcy=10to14:readt$(cy-10)
580 t$=t$(cy-10)+":":cx=16-len(t$):gosub420:print"[156]"t$"[154][221]";
590 print"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][221]":next
600 restore
610 printtab(16)"[154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
620 forl=0to4:t$(l)="":next
630 p=0 : rem init loop counter
640 cy=10+p:cx=17:gosub420:a$=" "
650 sysmi,255-(32+8),20,asc("[164]"),10,13,a$
660 t$(p)=a$:p=p+1:ifp<5then640
670 print"[147]"
680 cy=5:cx=0:gosub420
690 rem
700 print"[159] [217]our name is [154]"tab(18)t$(0)
710 print"[159] [217]ou live at [154]"tab(18)t$(1)
720 printtab(18)t$(2)
730 print"[159] [217]our phone # is[154]"tab(18)t$(3)
740 print"[159] [193]nd the other info you gave me is"
750 print"[154] "t$(4)
760 print" [208]ress [210][197][212][213][210][206] for next demo"
770 geta$:ifa$<>chr$(13)then770
780 rem
790 rem ===============================
800 rem ===============================
810 rem ===============================
820 rem
830 data"[206]ame","[193]ddress","[195]ity,[211]tate,[218]ip"," [208]hone number ","[207]ther"
840 rem
850 rem
860 print"[147]"chr$(142)tab(14)"[158]input demo #3":d$="a":p=0
870 cx=9:cy=8:gosub420:print"[159]enter "d$" number:"
880 cx=9:cy=10:gosub420:print"[154][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
890 printtab(9)"[161][156] [154][146][161]"
900 printtab(9)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
910 cx=10:cy=11:gosub420
920 a$="0"
930 sysmi,128+32+8+1,20,asc(" "),1,4,a$
940 t(p)=val(a$):p=p+1:ifp<2thend$="another":goto870
950 print:print"[159] the product of the numbers is:"
960 an$=str$(t(0)*t(1)):print"[154]"tab(20-(len(an$)/2))an$
970 print" press return for next demo"
980 geta$:ifa$<>chr$(13)then980
990 rem
1000 rem
1010 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #4"
1020 print"[159] [197]nter an amount of money:":a$=" 0.00"
1030 print"[156] -=> <=-[157][157][157][157][157][157][157][157][157][157][157]";
1040 rem cy=7 : cx=15 : gosub 470
1050 sysmi,128+94+8+1,7,asc("$"),7,5,a$
1060 print
1070 print"[154] [217]ou entered $ "a$
1080 print""tab(13)"[208]ress [210][197][212][213][210][206]"
1090 geta$:ifa$<>chr$(13)then1090
1100 rem
1110 rem
1120 print"[147]";chr$(9);chr$(142);chr$(8)
1130 a$=" [194] [194]"
1140 print" [152][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1150 printa$
1160 print" [194] [154]please choose:[152] [194]"
1170 print a$
1180 print" [194] 1.[154] run the demo again[152] [194]"
1190 printa$
1200 print" [194] 2.[154] return to loadstar[152] [194]"
1210 printa$
1220 print" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][154]"
1230 geta$:ifa$<>"1"anda$<>"2"then1230
1240 if a$="1" then 120
1250 rem
1260 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
1270 if er<>63 then print"[147]":end
1280 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
1290 poke198,0:poke1144,32
1300 print"[158]load"q$a$q$",8"
1310 print"run ":poke631,13:poke632,13:poke198,2:end
1320 poke214,15:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
1330 fori=1to3:print" ":next:poke53272,21
1340 print" published on loadstar #58 "
1350 print" subscriptions 1-800-831-2694 "
1360 print" changing[160]this notice is illegal "
1370 print" "
1380 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1390 au$="master input":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
1400 au$="by james ianni (c) 1988":poke214,18:print
1410 printspc(20-len(au$)/2)"[152]"au$"":return